Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/C-D/CoolMacStacks.sea/Cool Mac Stacks/Building Blocks/FullHPop 1.3 (US)/cards.xml

Text File | 1991-12-17 | 15KB | 254 lines

card_3055.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>3055</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3273.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2661</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_2488.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>69</left>
            <top>68</top>
            <right>434</right>
            <bottom>252</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>16</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>154</left>
            <top>261</top>
            <right>258</right>
            <bottom>280</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>SubItem 1.2</name>
        <script>on mouseDownget FullHPop(cd fld 2)TestError(it)put it into cd fld "result"if it ≠ emptythenif item 2 of it ≠ emptythen put 2 into ItemNbelse put 1 into ItemNbset name of me to item ItemNb of itResizeMe item ItemNb of line 2 of it,"BtnArrow"end ifend mouseDown</script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>243</left>
            <top>263</top>
            <right>258</right>
            <bottom>276</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>31383</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>BtnArrow</name>
        <script>on mouseDownsend mouseDown to btn 1end mouseDown</script>
    </part>
    <part>
        <id>18</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>324</left>
            <top>263</top>
            <right>492</right>
            <bottom>338</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>19</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>154</left>
            <top>311</top>
            <right>321</right>
            <bottom>338</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Result</name>
        <script></script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>154</left>
            <top>287</top>
            <right>213</right>
            <bottom>304</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script>on mouseDownget FullHPop("FONT")TestError(it)put it into cd fld "result"if it ≠ emptythenput item 1 of it into meResizeMe item 1 of line 2 of it,"FldArrow"set textFont of btn 1 to item 1 of itend ifend mouseDown</script>
    </part>
    <part>
        <id>31</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>194</left>
            <top>288</top>
            <right>213</right>
            <bottom>301</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>31383</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>FldArrow</name>
        <script>on mouseDownsend mouseDown to cd fld 4end mouseDown</script>
    </part>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text><span class="style1">                                              </span><span class="style2">FullHPop 1.3</span><span class="style1">                                       </span><span class="style3"> by Frédéric RINALDI</span><span class="style1">   Yet another hierarchical popupmenu XFCN? Nope. Once again FullHPop will definitely be the most versatile and powerful popUp XFCN. Among its features:  • One param fits 95% of the user’s needs when dealing with a  popupmenu  • Allows control of font & size  • Smart enough to capitalize each item and style metacharacter to match     the Human Interface Guidelines.  • A special hack has been provided to allow SICN insertion using a   metacharacter (like ^xxx for an ICON).  • No need for the user to compute the ICON or SICN ID before passing it.    Simply put the real resource ID after the metacharacter.  • Item selection of submenu owner is allowed.  • No menu or submenu length limit (32000 chars, 127 submenus)  • Any automatic feature can be redefined using parameters  • Returns the selected item and subitem string width to allow resizing of    the target object. (like a button, if it is renamed according to the item    you chose).  • Automatically checks the menu item according to target name or      contents of field.  • Popupmenu pops automatically where it is expected  • Builds resources menu.</span><span class="style4">Description</span><span class="style1">   FullHPop displays a popup or hierarchical popup menu and returns the user's selection.</span><span class="style4">Syntax</span><span class="style1"></span><span class="style5">    FullHPop(<menu>[,<loc>][,<selecteditem>]            [,<Font[,size]>][,<checkMark>]            [,<sub owner select>][,"fastest"])</span><span class="style1"></span><span class="style4">Parameters</span><span class="style1">   Only first parameter is required, all other are optional.   </span><span class="style5"><menu></span><span class="style1"> is the popup menu definition text. For a single menu, item separator character can be return, comma or semicolon. For a hierarchical menu, item separator can be a return or semicolon, while subitems separator will be comma.   If this parameter is exactly a four char string (like "FONT" or "XCMD"), the XFCN will automatically build a menu containing all resource names of the defined type.   Any usual metacharacter can be used in string :     ^XXX    associates an ICON resource to the item     !X        puts a X mark char before the item     <X        sets the style of the item (B, I, O, U, S)                NOTE :  Menu Mgr doesn't allow <E (extend) and <C (condense)     /X       associates a command key to the item     (         disables the item   and a special hack :     ¨XXX    associates an SICN resource to the item   </span><span class="style5"><loc></span><span class="style1"> is a point "h,v" giving the topleft corner of the selected item of the menu when it pops on screen. The Default is the topleft of the target button or field, or the current mouseLoc when used without a field or button.   </span><span class="style5"><selected item> </span><span class="style1">is an integer giving the item number that will appear right at the cursor location when the menu pops. With 0, the menu will drop down from its top. With a positive value, the item will be checked, while a negative value will just position the item without checking it. If this param is not used, the XFCN will automatically check the item corresponding to the the target button name of field content.   </span><span class="style5"><Font[,size]></span><span class="style1"> is a one ot two items string allowing to force a font and size for the menu. Default setup uses the font and size of the target object.  </span><span class="style5"> <checkMark> </span><span class="style1">is a single char that will serve as the checkmark character. Default uses the regular check for Chicago, "√" for any other font.   </span><span class="style5"><sub owner select></span><span class="style1"> is a boolean that will enable of disable the feature that allows to even select an item having a submenu. Default is true.</span><span class="style5">   "fastest"</span><span class="style1"> disables smart features from FullHPop, making it respond as fast as possible. The drawback of it is that items will not be capitalized anymore, ICON ID must be computed as usual (see </span><span class="style3">Inside Macintosh</span><span class="style1"> Vol </span><span class="style3">I - 346 to 349</span><span class="style1">), and SICN recources become unavailable.   Using "!", "?" or "=" as first parameter will return an online help (resp. copyright, syntax and output).</span><span class="style4">Using</span><span class="style1">   The XFCN must be called in a mouseDown handler from either a button or a field.   FullHPop will return a two line result :</span><span class="style5"> "<item name>,<subItem name>,<item number>,<subItem   number><item width>,<subItem width>"</span><span class="style1">   The first line returns information about the selected item and subitem, while the second gives the selection string width according to menu font and size. This information is intended to give the user the ability to resize the calling object to respect interface guidlines.   If the mouse button is released outside the menu, the result will be empty.</span><span class="style4">Errors</span><span class="style1">If an error occurs, FullHPop will return :    </span><span class="style5">   "Error : Bad ICON or SICN ID (257 ≤ x ≤ 511)"     "Error : Cannot exceed 127 submenus"     "Error : Missing or empty parameter(s)"     "Error : Empty param #x"     "Error : Bad font size"     "Error : Incorrect param #x"     "Error : No such resource"</span><span class="style1"></span><span class="style4">History</span><span class="style1">1.3                                                                                            10/26/91• "-" char can be preceeded by prefix char "\" as well.1.2                                                                                            10/14/91• Added mouseLoc default loc for card click• Fixed font attributes handling when no target font property is available• Fixed prefix char routine1.1                                                                                            10/09/91• Negative loc values now accepted as parameter• Added "\" prefix char for metacharacters in string--------------------------------------------------------------------This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to give full credit and display this copyright information in your stack.Any commercial use must be licensed and aknowledged by the author.</span><span class="style4">                             © F. Rinaldi - 1991       AppleLink: RINALDI1                CalvaCom : FR10                        Compuserve : 71170,2111</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>18</id>
        <text>Mac SE\/30\!item 1,subItem 1.1,SubItem 1.2,SubItem 1.3^257Item 2<B,subItem 2.1<B,SubItem 2.2<I,(-,<OSubItem 2.3¨257item 3<i</text>
    </content>
    <content>
        <layer>card</layer>
        <id>30</id>
        <text>Chicago</text>
    </content>
    <name></name>
    <script>on ResizeMe Width,BtNameput rect of the target into TheRectput item 1 of TheRect + Width + 25 into item 3 of theRectset rect of the target to TheRectset right of btn BtName to right of the targetend ResizeMeon TestError Whatif first word of What is "Error"thenbeepanswer Whatexit to HyperCardend ifend TestError</script>
</card>